Chip 2000 October/CHIP Turkiye Ekim 2000.iso/prog/demo/MATH/_SETUP.1/Abt_math.exe/0/RCDATA/TSTFDM/TSTFDM.txt

Text File | 2000-07-28 | 10.7 KB | 476 lines

object StfDM: TStfDM
  OldCreateOrder = True
  Left = 527
  Top = 279
  Height = 162
  Width = 248
  object StFtable: TTable
    SessionName = 'Default'
    TableName = 'STKFIS'
    Left = 18
    Top = 6
    object StFtableStFTip: TStringField
      FieldName = 'StFTip'
      Required = True
      Size = 1
    end
    object StFtableStFNo: TIntegerField
      FieldName = 'StFNo'
    end
    object StFtableStFTar: TDateField
      FieldName = 'StFTar'
      Required = True
    end
    object StFtableStCrKod: TStringField
      FieldName = 'StCrKod'
      Required = True
      Size = 10
    end
    object StFtableStGAmbar: TStringField
      FieldName = 'StGAmbar'
      Required = True
      Size = 2
    end
    object StFtableStCUnvan: TStringField
      FieldName = 'StCUnvan'
      Size = 40
    end
    object StFtableStAdres: TStringField
      FieldName = 'StAdres'
      Size = 186
    end
    object StFtableAdr1: TStringField
      FieldName = 'Adr1'
      Size = 30
    end
    object StFtableAdr2: TStringField
      FieldName = 'Adr2'
      Size = 30
    end
    object StFtableilce: TStringField
      FieldName = 'ilce'
      Size = 15
    end
    object StFtableil: TStringField
      FieldName = 'il'
      Size = 15
    end
    object StFtablePKod: TStringField
      FieldName = 'PKod'
      Size = 6
    end
    object StFtableTel1: TStringField
      FieldName = 'Tel1'
      Size = 15
    end
    object StFtableTel2: TStringField
      FieldName = 'Tel2'
      Size = 15
    end
    object StFtableFax: TStringField
      FieldName = 'Fax'
      Size = 15
    end
    object StFtableModem: TStringField
      FieldName = 'Modem'
      Size = 15
    end
    object StFtableVDa: TStringField
      FieldName = 'VDa'
      Size = 15
    end
    object StFtableVNo: TStringField
      FieldName = 'VNo'
      Size = 15
    end
    object StFtableStVadeG: TIntegerField
      FieldName = 'StVadeG'
    end
    object StFtableStVadeT: TDateField
      FieldName = 'StVadeT'
    end
    object StFtableStKlIsk: TFloatField
      FieldName = 'StKlIsk'
    end
    object StFtableStCAmbar: TStringField
      FieldName = 'StCAmbar'
      Size = 2
    end
    object StFtableStIsk1: TFloatField
      FieldName = 'StIsk1'
    end
    object StFtableStIsk2: TFloatField
      FieldName = 'StIsk2'
    end
    object StFtableStMas: TFloatField
      FieldName = 'StMas'
    end
    object StFtableStTut: TFloatField
      FieldName = 'StTut'
      DisplayFormat = '#,##0.00'
    end
    object StFtableStDvKod: TStringField
      FieldName = 'StDvKod'
      Size = 3
    end
    object StFtableStFatno: TStringField
      FieldName = 'StFatno'
      Size = 12
    end
    object StFtableStBelNo: TStringField
      FieldName = 'StBelNo'
      Size = 12
    end
    object StFtableStSaat: TStringField
      FieldName = 'StSaat'
      Size = 8
    end
    object StFtableDip1: TStringField
      FieldName = 'Dip1'
      Size = 60
    end
    object StFtableDip2: TStringField
      FieldName = 'Dip2'
      Size = 60
    end
    object StFtableDip3: TStringField
      FieldName = 'Dip3'
      Size = 60
    end
    object StFtableDip4: TStringField
      FieldName = 'Dip4'
      Size = 60
    end
    object StFtableStKdvO1: TFloatField
      FieldName = 'StKdvO1'
    end
    object StFtableStKdvO2: TFloatField
      FieldName = 'StKdvO2'
    end
    object StFtableStKdvO3: TFloatField
      FieldName = 'StKdvO3'
    end
    object StFtableStKdvO4: TFloatField
      FieldName = 'StKdvO4'
    end
    object StFtableStKdvO5: TFloatField
      FieldName = 'StKdvO5'
    end
    object StFtableStFKdvO: TFloatField
      FieldName = 'StFKdvO'
    end
    object StFtableStKdv1: TStringField
      FieldName = 'StKdv1'
      Size = 5
    end
    object StFtableStKdv2: TStringField
      FieldName = 'StKdv2'
      Size = 5
    end
    object StFtableStKdv3: TStringField
      FieldName = 'StKdv3'
      Size = 5
    end
    object StFtableStKdv4: TStringField
      FieldName = 'StKdv4'
      Size = 5
    end
    object StFtableStKdv5: TStringField
      FieldName = 'StKdv5'
      Size = 5
    end
    object StFtableStFKdv: TStringField
      FieldName = 'StFKdv'
      Size = 5
    end
    object StFtableSipNo: TStringField
      FieldName = 'SipNo'
      Size = 40
    end
    object StFtableTutaroran: TBooleanField
      FieldName = 'Tutaroran'
    end
  end
  object FtrTable: TTable
    SessionName = 'Default'
    OnFilterRecord = FtrTableFilterRecord
    TableName = 'FATURA'
    TableType = ttParadox
    Left = 24
    Top = 58
    object FtrTableFtrTip: TStringField
      FieldName = 'FtrTip'
      Required = True
      Size = 1
    end
    object FtrTableFtrNo: TIntegerField
      FieldName = 'FtrNo'
      Required = True
    end
    object FtrTableFtrTar: TDateField
      FieldName = 'FtrTar'
      Required = True
    end
    object FtrTableFtrCrKod: TStringField
      FieldName = 'FtrCrKod'
      Size = 10
    end
    object FtrTableFtrGAmbar: TStringField
      FieldName = 'FtrGAmbar'
      Required = True
      Size = 2
    end
    object FtrTableFtrCUnvan: TStringField
      FieldName = 'FtrCUnvan'
      Size = 40
    end
    object FtrTableFtrAdres: TStringField
      FieldName = 'FtrAdres'
      Size = 186
    end
    object FtrTableAdr1: TStringField
      FieldName = 'Adr1'
      Size = 30
    end
    object FtrTableAdr2: TStringField
      FieldName = 'Adr2'
      Size = 30
    end
    object FtrTableilce: TStringField
      FieldName = 'ilce'
      Size = 15
    end
    object FtrTableil: TStringField
      FieldName = 'il'
      Size = 15
    end
    object FtrTablePKod: TStringField
      FieldName = 'PKod'
      Size = 6
    end
    object FtrTableTel1: TStringField
      FieldName = 'Tel1'
      Size = 15
    end
    object FtrTableTel2: TStringField
      FieldName = 'Tel2'
      Size = 15
    end
    object FtrTableFax: TStringField
      FieldName = 'Fax'
      Size = 15
    end
    object FtrTableModem: TStringField
      FieldName = 'Modem'
      Size = 15
    end
    object FtrTableVDa: TStringField
      FieldName = 'VDa'
      Size = 15
    end
    object FtrTableVNo: TStringField
      FieldName = 'VNo'
      Size = 15
    end
    object FtrTableFtrIsk1: TFloatField
      FieldName = 'FtrIsk1'
    end
    object FtrTableFtrIsk2: TFloatField
      FieldName = 'FtrIsk2'
    end
    object FtrTableFtrMas: TFloatField
      FieldName = 'FtrMas'
    end
    object FtrTableFtrTut: TFloatField
      FieldName = 'FtrTut'
      DisplayFormat = '#,##0.00'
    end
    object FtrTableFtrDvKod: TStringField
      FieldName = 'FtrDvKod'
      Size = 3
    end
    object FtrTableIrsNo: TStringField
      FieldName = 'IrsNo'
      Size = 60
    end
    object FtrTableFtrBelNo: TStringField
      FieldName = 'FtrBelNo'
      Size = 12
    end
    object FtrTableFtrSaat: TStringField
      FieldName = 'FtrSaat'
      Size = 8
    end
    object FtrTableFtrDip1: TStringField
      FieldName = 'FtrDip1'
      Size = 60
    end
    object FtrTableFtrDip2: TStringField
      FieldName = 'FtrDip2'
      Size = 60
    end
    object FtrTableFtrDip3: TStringField
      FieldName = 'FtrDip3'
      Size = 60
    end
    object FtrTableFtrDip4: TStringField
      FieldName = 'FtrDip4'
      Size = 60
    end
    object FtrTableFtrKdv1: TStringField
      FieldName = 'FtrKdv1'
      Size = 5
    end
    object FtrTableFtrKdv2: TStringField
      FieldName = 'FtrKdv2'
      Size = 5
    end
    object FtrTableFtrKdv3: TStringField
      FieldName = 'FtrKdv3'
      Size = 5
    end
    object FtrTableFtrKdv4: TStringField
      FieldName = 'FtrKdv4'
      Size = 5
    end
    object FtrTableFtrKdv5: TStringField
      FieldName = 'FtrKdv5'
      Size = 5
    end
    object FtrTableFtrFKdv: TStringField
      FieldName = 'FtrFKdv'
      Size = 5
    end
    object FtrTableFtrKdvO1: TFloatField
      FieldName = 'FtrKdvO1'
    end
    object FtrTableFtrKdvO2: TFloatField
      FieldName = 'FtrKdvO2'
    end
    object FtrTableFtrKdvO3: TFloatField
      FieldName = 'FtrKdvO3'
    end
    object FtrTableFtrKdvO4: TFloatField
      FieldName = 'FtrKdvO4'
    end
    object FtrTableFtrKdvO5: TFloatField
      FieldName = 'FtrKdvO5'
    end
    object FtrTableFtrFKdvO: TFloatField
      FieldName = 'FtrFKdvO'
    end
    object FtrTableFtrOPlan: TBooleanField
      FieldName = 'FtrOPlan'
    end
    object FtrTableFtrVadeG: TIntegerField
      FieldName = 'FtrVadeG'
    end
    object FtrTableFtrVadeT: TDateField
      FieldName = 'FtrVadeT'
    end
    object FtrTableFtrSonBak: TFloatField
      FieldName = 'FtrSonBak'
    end
    object FtrTableIrsTar: TDateField
      FieldName = 'IrsTar'
    end
    object FtrTableIrsSaat: TStringField
      FieldName = 'IrsSaat'
      Size = 8
    end
    object FtrTableFtrKlIsk: TFloatField
      FieldName = 'FtrKlIsk'
    end
    object FtrTableFisNo: TIntegerField
      FieldName = 'FisNo'
    end
    object FtrTableTutaroran: TBooleanField
      FieldName = 'Tutaroran'
    end
  end
  object FtrSource: TDataSource
    DataSet = FtrTable
    Left = 104
    Top = 58
  end
  object SthQuery: TQuery
    SQL.Strings = (

        'select  StHar.StFTip, StHar.StFNo, StHar.StFSr, StHar.ShTar,StHa' +
        'r.StNo, '

        '            StHar.StAd, StHar.Genislik,StHar.Yukseklik, ShTar.Br' +
        'Alan,'
      '           StHar.Adet,StHar.StMik,'
      ' from StHar  '
      ' where '
      '    (StFTip = :FisTipi)   and  ( StFNo = :FisNo)'
      '')
    Left = 104
    Top = 4
    ParamData = <
      item
        DataType = ftInteger
        Name = 'FisTipi'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FisNo'
        ParamType = ptUnknown
      end>
    object SthQueryStFTip: TStringField
      FieldName = 'StFTip'
      Size = 1
    end
    object SthQueryStFNo: TIntegerField
      FieldName = 'StFNo'
    end
    object SthQueryStFSr: TSmallintField
      FieldName = 'StFSr'
    end
    object SthQueryShTar: TDateField
      FieldName = 'ShTar'
    end
    object SthQueryStNo: TStringField
      FieldName = 'StNo'
    end
    object SthQueryStAd: TStringField
      FieldName = 'StAd'
      Size = 40
    end
    object SthQueryGenislik: TFloatField
      FieldName = 'Genislik'
    end
    object SthQueryYukseklik: TFloatField
      FieldName = 'Yukseklik'
    end
    object SthQueryBrAlan: TFloatField
      FieldKind = fkCalculated
      FieldName = 'BrAlan'
      Calculated = True
    end
    object SthQueryAdet: TFloatField
      FieldName = 'Adet'
    end
    object SthQueryStMik: TFloatField
      FieldName = 'StMik'
    end
    object SthQueryShBrf: TFloatField
      FieldName = 'ShBrf'
    end
    object SthQueryTutar: TFloatField
      FieldName = 'Tutar'
    end
  end
  object SthQS: TDataSource
    Left = 148
    Top = 4
  end
  object stfsource: TDataSource
    DataSet = StFtable
    Left = 168
    Top = 56
  end
end